home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #4 / Commodore_Disk_User_Vol.4_4_1991_-.d64 / cheque book2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  588 lines
  1. 1 s$="standing order":s2$="so"
  2. 2 rem s$="direct debit":s2$="dd"
  3. 3 print"[147]":gosub60000
  4. 6 dimso$(10),sa$(10)
  5. 7 gosub20000
  6. 10 print"[147]","[157][157][158]cheque book organiser."
  7. 20 print"[129]options: [156]1. [155]enter pay ins"
  8. 30 print,"[156][157]2. [155]enter pay outs"
  9. 35 print,"[156][157]3. [155]enter "s$"s"
  10. 40 print,"[156][157]4. [155]check statement"
  11. 50 print,"[156][157]5. [155]view pay ins/outs left"
  12. 55 print,"[156][157]6. [155]edit pay ins/outs & balance"
  13. 57 print,"[156][157]7. [155]edit "s$"s"
  14. 60 print,"[156][157]8. [155]save file and end"
  15. 65 print,"[156][157]9. [155]end"
  16. 70 geta$
  17. 80 a=val(a$):ifa<1ora>9then70
  18. 85 ifno=nand(a=1ora=2)then40000
  19. 86 ifno+so>nanda=3then40000
  20. 90 xt=0:onagoto100,300,4000,500,1000,2000,3000,30000
  21. 91 print"[158]are you sure? ";
  22. 92 geta$:ifa$="n"then10
  23. 93 ifa$<>"y"then92
  24. 94 printa$;:end
  25. 100 no=no+1
  26. 101 print"[147][129]enter pay ins"
  27. 102 print"[155]enter \0 to end"
  28. 105 print"[155]amount paid in:[158] \";:gosub12000
  29. 110 ifb$=""thenno=no-1:goto10
  30. 115 a$(no)="+"+b$
  31. 120 b$="paid in":gosub11110:cq$(no)=b$
  32. 130 print:print"[155]date ([156]dd[155]/[156]mm[155]/[156]yy[155]):[158] ";:gosub10000
  33. 140 p(no)=0
  34. 150 print:print""d$(no)cq$(no)"\"right$(a$(no),8)
  35. 160 print"[158]is this correct?"
  36. 165 geta$:ifa$="n"thenprint"":goto102
  37. 170 ifa$<>"y"then165
  38. 180 goto100
  39. 300 no=no+1
  40. 301 print"[147][129]enter pay outs"
  41. 302 print"[155]enter \0 to end"
  42. 305 print"[155]amount paid out:[158] \";:gosub12000
  43. 310 ifb$=""thenno=no-1:goto10
  44. 315 a$(no)="-"+b$
  45. 320 print:print"[155]date ([156]dd[155]/[156]mm[155]/[156]yy[155]):[158] ";:gosub10000
  46. 330 print:print"[155]input cheque number and/or description:[158]":gosub11000
  47. 335 cq$(no)=b$
  48. 340 p(no)=0
  49. 350 print:print""d$(no)cq$(no)"\"right$(a$(no),8)
  50. 360 print"[158]is this correct?"
  51. 365 geta$:ifa$="n"thenprint"":goto302
  52. 370 ifa$<>"y"then365
  53. 380 goto300
  54. 500 print"[147][129]check statement":ba=bz
  55. 501 ifno=0thenprint"[158]no transactions recorded.":gosub15000
  56. 502 ifno=0thenprint"[159]balance: \"ba$:print"[158]press any key."
  57. 503 ifno=0thenpoke198,0:wait198,1:poke198,0:goto10
  58. 504 m2=0
  59. 505 print"[154][164][164] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]     [164][164][164][164][164][164]   [164][164][164][164][164]"
  60. 510 print"mocq no/descriptioncreditdebit"
  61. 512 gosub16000
  62. 515 j=1:m=0
  63. 516 fori=1tono:p(i)=0:next
  64. 520 print"[152]"
  65. 521 fori=jtoj+9
  66. 525 ifi>no thenprint"                                       ":goto550
  67. 526 ifp(i)>0thenprint"";
  68. 530 ifleft$(a$(i),1)="+"thenprintmid$(d$(i),4,2)cq$(i)right$(a$(i),8)"        "
  69. 540 ifleft$(a$(i),1)="-"thenprintmid$(d$(i),4,2)cq$(i)"        "right$(a$(i),8)
  70. 550 next
  71. 551 print"                                   ":print"[145][158]";
  72. 552 ifj+9<no thenprint"+[146] for next page ";
  73. 553 ifj<>1thenprint"-[146] for previous page";
  74. 554 print
  75. 560 p=j:print"[158]";:gosub570:goto600
  76. 570 print""
  77. 580 fori=1top-j+1:print:next
  78. 585 ifp(p)>0thenprint"";
  79. 590 ifleft$(a$(p),1)="+"thenprintmid$(d$(p),4,2)cq$(p)right$(a$(p),8)"        "
  80. 594 ifleft$(a$(p),1)="-"thenprintmid$(d$(p),4,2)cq$(p)"        "right$(a$(p),8)
  81. 595 gosub15000
  82. 596 print"",,"[159]balance:\"ba$
  83. 597 ifba=bzthenprint,,"from last statement":return
  84. 598 print,,"                   ":return
  85. 599 gosub570
  86. 600 p1=p
  87. 610 geta$:ifa$=""then610
  88. 620 ifa$=" "andp(p)=0thenm=m+1:p(p)=m:print"[158]";:m2=m2+1:ba=ba+val(a$(p)):goto599
  89. 625 ifa$=" "thenp(p)=0:print"[158]";:m2=m2-1:ba=ba-val(a$(p)):goto599
  90. 627 ifa$=""andp=no then610
  91. 630 ifa$=""andp<j+9thenprint"[152]";:gosub570:p=p+1:print"[158]";:goto599
  92. 640 ifa$="[145]"andp>jthenprint"[152]";:gosub570:p=p-1:print"[158]";:goto599
  93. 650 ifa$="+"andj+9<no thenj=j+10:goto520
  94. 660 ifa$="-"andj>1thenj=j-10:goto520
  95. 670 ifa$="q"then10
  96. 680 ifa$=chr$(13)andm2>0then700
  97. 690 goto610
  98. 700 print"[147][129]balance ok":gosub595:print"[158]are you sure?";
  99. 701 geta$:ifa$="n"then500
  100. 702 ifa$<>"y"then701
  101. 704 printa$:print"do you require a printed statement? ";:bx=ba
  102. 705 geta$:ifa$="n"thenprinta$:goto900
  103. 710 ifa$<>"y"then705
  104. 720 printa$:print"turn on printer and press a key"
  105. 730 geta$:ifa$=""then730
  106. 735 print"[129]input statement number: ";:gosub12000:print
  107. 740 open4,4:print#4
  108. 750 print#4,"cheque book statement number:"left$(b$,5)
  109. 755 print#4
  110. 762 bn$=ba$:ba=bz:gosub15000
  111. 765 print#4,"previous balance: \"ba$
  112. 770 print#4
  113. 775 print#4,"date     cq no/description     credit    debit"
  114. 780 fori=1tom
  115. 785 f=0
  116. 790 forj=1tono:ifp(j)=ithenf=j
  117. 795 next
  118. 800 iff=0then830
  119. 810 ifleft$(a$(f),1)="+"thenprint#4,d$(f)cq$(f)right$(a$(f),8)
  120. 820 ifleft$(a$(f),1)="-"thenprint#4,d$(f)cq$(f)"         "right$(a$(f),8)
  121. 830 next
  122. 840 print#4
  123. 850 print#4,"     new balance: \"bn$
  124. 860 close4
  125. 900 f=0
  126. 901 forj=1tono:ifp(j)<>0then920
  127. 910 f=f+1:cq$(f)=cq$(j)
  128. 911 d$(f)=d$(j)
  129. 912 a$(f)=a$(j)
  130. 913 p(f)=0
  131. 920 next
  132. 929 print"[155]":iff=0thenprint"0 items left":goto940
  133. 930 print"you still have"f"items left"
  134. 940 no=f
  135. 950 print" in the cheque book."
  136. 955 bz=bx
  137. 960 print"[158]press a key to return to menu"
  138. 970 poke198,0:wait198,1:poke198,0:goto10
  139. 1000 print"[147][129]view pay in/outs":ba=bz
  140. 1001 ifno=0thenprint"[158]no transactions recorded.":gosub15000
  141. 1002 ifno=0thenprint"[159]balance: \"ba$:print"[158]press any key."
  142. 1003 ifno=0thenpoke198,0:wait198,1:poke198,0:goto10
  143. 1005 print"[154][164][164] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]     [164][164][164][164][164][164]   [164][164][164][164][164]"
  144. 1010 print"mocq no/descriptioncreditdebit"
  145. 1012 gosub16100
  146. 1013 gosub15000
  147. 1014 print"",,"[157][159]stat bal:\"ba$
  148. 1015 fori=1tono:ba=ba+val(a$(i)):next
  149. 1016 gosub15000
  150. 1017 print,,"acc bal:\"ba$
  151. 1018 cb$=ba$:ba=bz
  152. 1019 j=1
  153. 1020 print"[152]"
  154. 1021 fori=jtoj+9
  155. 1025 ifi>no thenprint"                                       ":goto1050
  156. 1030 ifleft$(a$(i),1)="+"thenprintmid$(d$(i),4,2)cq$(i)right$(a$(i),8)"        "
  157. 1040 ifleft$(a$(i),1)="-"thenprintmid$(d$(i),4,2)cq$(i)"        "right$(a$(i),8)
  158. 1050 next
  159. 1051 print"                                   ":print"[145][158]";
  160. 1052 ifj+9<no thenprint"+[146] for next page ";
  161. 1053 ifj<>1thenprint"-[146] for previous page";
  162. 1054 print
  163. 1110 geta$:ifa$=""then1110
  164. 1130 ifa$="p"then1200
  165. 1150 ifa$="+"andj+9<no thenj=j+10:goto1020
  166. 1160 ifa$="-"andj>1thenj=j-10:goto1020
  167. 1170 ifa$="q"then10
  168. 1190 goto1110
  169. 1200 print"[147][129]print":print"[158]are you sure?"
  170. 1201 geta$:ifa$="n"then1000
  171. 1202 ifa$<>"y"then1201
  172. 1220 print"[147]turn on printer and press a key"
  173. 1230 geta$:ifa$=""then1230
  174. 1240 open4,4:print#4
  175. 1250 print#4,"cheque book (outstanding)"
  176. 1255 print#4
  177. 1262 ba=bz:gosub15000
  178. 1265 print#4,"last statement balance: \"ba$
  179. 1267 print#4,"      account  balance: \"cb$
  180. 1270 print#4
  181. 1275 print#4,"date     cq no/description     credit    debit"
  182. 1290 fori=1tono
  183. 1310 ifleft$(a$(i),1)="+"thenprint#4,d$(i)cq$(i)right$(a$(i),8)
  184. 1320 ifleft$(a$(i),1)="-"thenprint#4,d$(i)cq$(i)"         "right$(a$(i),8)
  185. 1330 next
  186. 1340 print#4
  187. 1360 close4
  188. 1370 goto1000
  189. 2000 print"[147][129]edit pay ins/outs":print"and balance":ba=bz
  190. 2001 ifno=0thenprint"[158]no transactions recorded.":gosub15000
  191. 2002 ifno=0thenprint"[159]balance: \"ba$:print"[158]press any key."
  192. 2003 ifno=0thenpoke198,0:wait198,1:poke198,0:goto10
  193. 2005 print"[154][164][164] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]     [164][164][164][164][164][164]   [164][164][164][164][164]"
  194. 2010 print"mocq no/descriptioncreditdebit"
  195. 2012 gosub16200
  196. 2015 j=1
  197. 2016 fori=1tono:p(i)=0:next
  198. 2020 print"[152]"
  199. 2021 fori=jtoj+9
  200. 2025 ifi>no thenprint"                                       ":goto2050
  201. 2026 ifp(i)>0thenprint"";
  202. 2030 ifleft$(a$(i),1)="+"thenprintmid$(d$(i),4,2)cq$(i)right$(a$(i),8)"        "
  203. 2040 ifleft$(a$(i),1)="-"thenprintmid$(d$(i),4,2)cq$(i)"        "right$(a$(i),8)
  204. 2050 next
  205. 2051 print"                                   ":print"[145][158]";
  206. 2052 ifj+9<no thenprint"+[146] for next page ";
  207. 2053 ifj<>1thenprint"-[146] for previous page";
  208. 2054 print
  209. 2060 p=j:print"[158]";:gosub570:goto2100
  210. 2099 gosub570
  211. 2100 p1=p
  212. 2110 geta$:ifa$=""then2110
  213. 2127 ifa$=""andp=no then2110
  214. 2130 ifa$=""andp<j+9thenprint"[152]";:gosub570:p=p+1:print"[158]";:goto2099
  215. 2140 ifa$="[145]"andp>jthenprint"[152]";:gosub570:p=p-1:print"[158]";:goto2099
  216. 2150 ifa$="+"andj+9<no thenj=j+10:goto2020
  217. 2160 ifa$="-"andj>1thenj=j-10:goto2020
  218. 2170 ifa$="q"then10
  219. 2175 ifa$="b"thenprint"[147]":gosub596:gosub21020:goto2000
  220. 2180 ifa$=chr$(13)then2300
  221. 2190 goto2110
  222. 2200 print"[147][156]1.[158] date:        [159]"d$(p)
  223. 2210 print"[156]2.[158] discription:[159]"cq$(p)
  224. 2220 print"[156]3.[158] amount:     [159]\"right$(a$(p),8)
  225. 2222 a$=left$(a$(p),1)
  226. 2224 ifa$="-"thena$="d"
  227. 2226 ifa$="+"thena$="c"
  228. 2230 print"[156]4.[158] c[146]redit/d[146]ebit:[159] "a$
  229. 2240 return
  230. 2300 gosub2200
  231. 2310 print"[129]d[146]elete, e[146]dit or q[146]uit"
  232. 2320 geta$:ifa$="q"then2000
  233. 2330 ifa$="d"then2600
  234. 2340 ifa$<>"e"then2320
  235. 2350 gosub2200
  236. 2360 print"[129]1[146],2[146],3[146],4[146] or q[146]uit"
  237. 2370 geta$:ifa$="q"then2000
  238. 2380 a=val(a$):ifa=0ora>4then2370
  239. 2390 onagoto2400,2430,2460,2490
  240. 2400 te=no:no=p:t$=d$(p)
  241. 2405 print"[158]new date:[155]";:gosub10000
  242. 2410 print:print"[158]ok (y/n)?":no=te
  243. 2420 geta$:ifa$="n"thend$(p)=t$:goto2350
  244. 2423 ifa$<>"y"then2420
  245. 2426 goto2350
  246. 2430 print"[158]new desc:[155]";:gosub11000
  247. 2440 print:print"[158]ok (y/n)?"
  248. 2445 geta$:ifa$="n"then2350
  249. 2450 ifa$<>"y"then2445
  250. 2455 cq$(p)=b$:goto2350
  251. 2460 print"[158]new amount:[155]\";:gosub12000
  252. 2470 print:print"[158]ok (y/n)?"
  253. 2475 geta$:ifa$="n"then2350
  254. 2480 ifa$<>"y"then2475
  255. 2485 a$(p)=left$(a$(p),1)+b$:goto2350
  256. 2490 print"[158]credit/debit:[155]";
  257. 2500 geta$:ifa$="c"thenb$="+":goto2520
  258. 2510 ifa$<>"d"then2500
  259. 2515 b$="-"
  260. 2520 printa$
  261. 2530 print"[158]ok (y/n)?"
  262. 2540 geta$:ifa$="n"then2350
  263. 2550 ifa$<>"y"then2540
  264. 2560 a$(p)=b$+right$(a$(p),8):goto2350
  265. 2600 print"[158]sure (y/n)?"
  266. 2610 geta$:ifa$="n"then2300
  267. 2620 ifa$<>"y"then2610
  268. 2630 fori=p+1tono
  269. 2640 cq$(i-1)=cq$(i)
  270. 2650 d$(i-1)=d$(i)
  271. 2660 a$(i-1)=a$(i)
  272. 2670 next
  273. 2675 cq$(no)="":a$(no)="":d$(no)=""
  274. 2680 no=no-1
  275. 2690 goto2000
  276. 3000 print"[147][129]edit "s$"s"
  277. 3005 print"[154][164][164] [164][164][164][164][164][164][164][164][164][164][164][164][164][164]         [164][164][164][164][164]"
  278. 3010 print"no"s2$" descriptiondebit"
  279. 3012 gosub16300
  280. 3020 print"[152]"
  281. 3021 fori=1to10:b$=right$(str$(i),2)
  282. 3030 printb$so$(i)right$(sa$(i),8)
  283. 3050 next
  284. 3060 p=1:print"[158]";:gosub3070:goto3100
  285. 3070 print""
  286. 3080 fori=1top:print:next
  287. 3090 print""so$(p)right$(sa$(p),8)
  288. 3095 return
  289. 3099 gosub3070
  290. 3100 p1=p
  291. 3110 geta$:ifa$=""then3110
  292. 3115 ifso=0then3180
  293. 3127 ifa$=""andp=sothen3110
  294. 3130 ifa$=""thenprint"[152]";:gosub3070:p=p+1:print"[158]";:goto3099
  295. 3140 ifa$="[145]"andp>1thenprint"[152]";:gosub3070:p=p-1:print"[158]";:goto3099
  296. 3170 ifa$=chr$(13)then3300
  297. 3180 ifa$="q"then10
  298. 3185 ifa$="p"then3700
  299. 3190 ifa$="a"andso<10then3200
  300. 3195 goto3100
  301. 3200 print"[147][129]add "s$:print
  302. 3205 so=so+1
  303. 3210 print"[155]enter \0 to end"
  304. 3212 print"[155]amount paid out:[158] \";:gosub12000
  305. 3214 ifb$=""thenso$(so)="":sa$(so)="":so=so-1:goto3000
  306. 3215 sa$(so)="-"+b$
  307. 3230 print:print"[155]input description:[158]":gosub11000
  308. 3235 so$(so)=chr$(160)+s2$+left$(b$,18)
  309. 3250 print:print""so$(so)" \"right$(sa$(so),8)
  310. 3260 print"[158]is this correct?"
  311. 3265 geta$:ifa$="n"thenprint"":goto3210
  312. 3270 ifa$<>"y"then3265
  313. 3275 ifso<10then3200
  314. 3280 goto3000
  315. 3300 gosub3310:goto3350
  316. 3310 print"[147][156]1.[158] discription:[159]"so$(p)
  317. 3320 print"[156]2.[158] amount:     [159]\"right$(sa$(p),8)
  318. 3330 return
  319. 3350 print"[129]d[146]elete, e[146]dit or q[146]uit"
  320. 3360 geta$:ifa$="q"then3000
  321. 3370 ifa$="d"then3500
  322. 3380 ifa$<>"e"then3360
  323. 3390 gosub3310
  324. 3395 print"[129]1[146],2[146] or q[146]uit"
  325. 3400 geta$:ifa$="q"then3000
  326. 3410 a=val(a$):ifa=0ora>2then3400
  327. 3420 onagoto3430,3460
  328. 3430 print"[158]new desc:[155]";:gosub11000
  329. 3440 print:print"[158]ok (y/n)?"
  330. 3445 geta$:ifa$="n"then3390
  331. 3450 ifa$<>"y"then3445
  332. 3455 so$(p)=chr$(160)+s2$+left$(b$,18):goto3390
  333. 3460 print"[158]new amount:[155]\";:gosub12000
  334. 3470 print:print"[158]ok (y/n)?"
  335. 3475 geta$:ifa$="n"then3390
  336. 3480 ifa$<>"y"then3475
  337. 3485 sa$(p)="-"+b$:goto3390
  338. 3500 print"[158]sure (y/n)?"
  339. 3510 geta$:ifa$="n"then3300
  340. 3520 ifa$<>"y"then3510
  341. 3530 fori=p+1toso
  342. 3540 so$(i-1)=so$(i)
  343. 3550 sa$(i-1)=sa$(i)
  344. 3570 next
  345. 3575 so$(so)="":sa$(so)=""
  346. 3580 so=so-1
  347. 3590 goto3000
  348. 3700 print"[147][129]print":print"[158]are you sure?"
  349. 3701 geta$:ifa$="n"then3000
  350. 3702 ifa$<>"y"then3701
  351. 3720 print"[147]turn on printer and press a key"
  352. 3730 geta$:ifa$=""then3730
  353. 3740 open4,4:print#4
  354. 3750 print#4,s$"s"
  355. 3755 print#4
  356. 3770 print#4," "s2$"description     amount"
  357. 3790 fori=1toso
  358. 3795 print#4,so$(i)right$(sa$(i),8)
  359. 3800 next
  360. 3810 print#4:close4:goto3000
  361. 4000 print"[147][129]enter "s$"s"
  362. 4001 ifso=0thenprint"[158]no "s$"s to enter."
  363. 4002 ifso=0thenprint"press a key."
  364. 4003 ifso=0thenpoke198,0:wait198,1:poke198,0:goto10
  365. 4010 print"[158]are you sure?";
  366. 4020 geta$:ifa$="n"then10
  367. 4030 ifa$<>"y"then4020
  368. 4040 printa$
  369. 4050 xx=no:no=0
  370. 4060 print"[155]date ([156]dd[155]/[156]mm[155]/[156]yy[155]):[158] ";:gosub10000
  371. 4070 no=xx
  372. 4080 print:print"[159]correct?";
  373. 4090 geta$:ifa$="n"then4040
  374. 4095 ifa$<>"y"then4090
  375. 4100 fori=1toso
  376. 4110 d$(no+i)=d$(0)
  377. 4120 cq$(no+i)=so$(i)
  378. 4130 a$(no+i)=sa$(i)
  379. 4140 next
  380. 4150 no=no+so:goto10
  381. 9999 end
  382. 10000 rem date input
  383. 10010 d$(no)=""
  384. 10020 geta$:ifa$=""then10020
  385. 10021 ifa$=chr$(13)andlen(d$(no))=8thenreturn
  386. 10022 ifa$=chr$(20)andlen(d$(no))>0then10080
  387. 10025 iflen(d$(no))=8then10020
  388. 10029 ifa$="0"then10040
  389. 10030 ifval(a$)<1then10020
  390. 10040 iflen(d$(no))=0andval(a$)>3then10020
  391. 10041 ifd$(no)="3"andval(a$)>1then10020
  392. 10042 ifd$(no)="0"andval(a$)=0then10020
  393. 10043 iflen(d$(no))=3andval(a$)>1then10020
  394. 10044 ifmid$(d$(no),4,1)="1"andlen(d$(no))=4andval(a$)>2then10020
  395. 10045 ifmid$(d$(no),4,1)="0"andlen(d$(no))=4andval(a$)=0then10020
  396. 10050 iflen(d$(no))=1thena$=a$+"/"
  397. 10060 iflen(d$(no))=4thena$=a$+"/"
  398. 10065 d$(no)=d$(no)+a$:printa$;
  399. 10070 goto10020
  400. 10080 l=1:iflen(d$(no))=3thenl=2
  401. 10085 iflen(d$(no))=6thenl=2
  402. 10090 d$(no)=left$(d$(no),len(d$(no))-l)
  403. 10100 print"[157] [157]";:ifl=2thenprint"[157] [157]";
  404. 10110 goto10020
  405. 11000 rem text input
  406. 11010 b$="":l=0:s=1
  407. 11020 geta$:ifa$=""then11020
  408. 11025 ifa$=chr$(13)then11110
  409. 11030 ifa$=chr$(20)andl>0then11100
  410. 11040 ifl=19then11020
  411. 11042 ifa$=" "ands=1then11020
  412. 11045 ifa$=" "ora$="!"then11060
  413. 11050 ifa$<"#"ora$>"_"then10020
  414. 11060 s=0:ifa$=" "thens=1
  415. 11065 b$=b$+a$:l=l+1:printa$;:goto11020
  416. 11100 s=0:print"[157] [157]";:l=l-1:b$=left$(b$,l):goto11020
  417. 11110 b$=chr$(160)+b$
  418. 11115 iflen(b$)<21thenb$=b$+" ":goto11115
  419. 11120 return
  420. 12000 rem value  input
  421. 12010 b$="":l=0
  422. 12020 geta$:ifa$=""then12020
  423. 12025 ifa$=chr$(13)andl=0thenb$="0.00":goto12400
  424. 12030 ifa$=chr$(13)thenb$=b$+".00":goto12400
  425. 12040 ifa$=chr$(20)andl>0then12100
  426. 12045 ifa$="."andl=0thena$="0.":l=1:goto12200
  427. 12050 ifa$="."then12200
  428. 12060 ifl=5then12020
  429. 12065 ifb$="0"then12020
  430. 12070 ifa$="0"then12080
  431. 12075 ifval(a$)=0then12020
  432. 12080 printa$;:b$=b$+a$:l=l+1:goto12020
  433. 12100 l=l-1:print"[157] [157]";:b$=left$(b$,l):goto12020
  434. 12200 l=l+1:b$=b$+a$:l1=0:c$="":printa$;
  435. 12210 geta$:ifa$=""then12210
  436. 12220 ifval(b$)=0anda$=chr$(13)thengoto12405
  437. 12230 ifa$=chr$(13)andl1=2thenb$=b$+c$:goto12400
  438. 12240 ifa$=chr$(20)andl1>0then12300
  439. 12245 ifa$=chr$(20)then12100
  440. 12260 ifl1=2then12210
  441. 12270 ifa$="0"then12280
  442. 12275 ifval(a$)=0then12210
  443. 12280 printa$;:c$=c$+a$:l1=l1+1:goto12210
  444. 12300 l1=l1-1:print"[157] [157]";:c$=left$(c$,l1):goto12210
  445. 12400 iflen(b$)<8thenb$=" "+b$:goto12400
  446. 12405 ifval(b$)=0thenb$=""
  447. 12410 return
  448. 15000 rem print balance
  449. 15010 b$=str$(abs(ba*100)):b$=right$(b$,len(b$)-1)
  450. 15015 iflen(b$)<3thenba$="0":goto15030
  451. 15020 ba$=left$(b$,len(b$)-2)
  452. 15030 ba$=ba$+"."
  453. 15040 iflen(b$)=1thenba$=ba$+"0"+b$:goto15050
  454. 15045 ba$=ba$+right$(b$,2)
  455. 15050 iflen(ba$)<8thenba$=" "+ba$:goto15050
  456. 15055 ifb$="0"thenb$="  ":goto15080
  457. 15060 b$=" c"
  458. 15070 ifba<>abs(ba)thenb$=" d"
  459. 15080 ba$=ba$+b$
  460. 15095 return
  461. 16000 rem print info
  462. 16010 print"[158]space[146] to include on statement"
  463. 16020 print"return[146] when balance agrees"
  464. 16025 print"use crsr up/down to move line
  465. 16030 [153]"qwait to return to menu"
  466. 16040 [142]
  467. 16100 [143] print info 2
  468. 16110 [153]"syspwait to printout info":[137]16030
  469. 16200 [143] print info 3
  470. 16210 [153]"sysreturnwait to edit line"
  471. 16220 [153]"bwait to edit last statement balance"
  472. 16230 [137]16025
  473. 16300 [143] print info 4
  474. 16310 [153]"":[139]so[178]0[167][153]:[153]
  475. 16315 [153]"sysawait to add "s$
  476. 16320 [139]so[177]0[167][153]"returnwait to edit line"
  477. 16325 [153]"pwait to print "s$"s"
  478. 16330 [139]so[177]0[137]16025
  479. 16335 [137]16030
  480. 17000 [143] error
  481. 17010 [132]15,e1$,e2$,e3$,e4$
  482. 17020 [142]
  483. 20000 [143] load data
  484. 20005 [153]"loadreturnsyssearching for cheque data"
  485. 20010 [159]15,8,15,"i0"
  486. 20020 [159]5,8,5,"cheque data,s,r"
  487. 20030 [141]17000
  488. 20040 [139][197](e1$)[177]0[167]21000
  489. 20045 [153]"loading"
  490. 20050 [132]5,bz
  491. 20055 [132]5,n:[141]22000
  492. 20060 [132]5,no
  493. 20070 [139]no[178]0[167]20102
  494. 20080 [129]i[178]1[164]no
  495. 20090 [132]5,cq$(i)
  496. 20092 [132]5,d$(i)
  497. 20094 [132]5,a$(i)
  498. 20100 [130]
  499. 20102 [132]5,so
  500. 20104 [139]so[178]0[167]20120
  501. 20106 [129]i[178]1[164]so
  502. 20110 [132]5,so$(i)
  503. 20112 [132]5,sa$(i)
  504. 20114 [130]
  505. 20120 [160]5:[160]15
  506. 20130 [142]
  507. 21000 [153]"clrerror:open"e1$" "e2$" "e3$" "e4$
  508. 21010 [160]5:[160]15
  509. 21015 n[178]50:[141]22000
  510. 21020 [153]"sysset up balance: \";:[141]12000
  511. 21030 bz[178][197](b$):[153]
  512. 21035 [139]bz[178]0[167]a$[178]"on":[137]21060
  513. 21040 [153]"credit or debit (c/d)? ";
  514. 21050 [161]a$:[139]a$[178]"c"[167]21060
  515. 21055 [139]a$[179][177]"d"[167]21050
  516. 21056 bz[178][171]bz
  517. 21060 [153]a$:[153]"listis this ok? ";
  518. 21070 [161]a$:[139]a$[178]"y"[167][142]
  519. 21080 [139]a$[179][177]"n"[167]21070
  520. 21090 [153]a$"":[137]21020
  521. 22000 [134]cq$(n[170]1),d$(n[170]1),a$(n[170]1),p(n[170]1):[142]
  522. 30000 [153]"loadforsave and end"
  523. 30001 [153]"sysare you sure?"
  524. 30002 [161]a$:[139]a$[178]"n"[167]10
  525. 30003 [139]a$[179][177]"y"[167]30002
  526. 30005 [153]"loadsyssaving cheque data"
  527. 30010 [159]15,8,15,"i0"
  528. 30020 [152]15,"s0:cheque data"
  529. 30030 [159]5,8,5,"cheque data,s,w"
  530. 30040 [141]17000
  531. 30050 [139][197](e1$)[177]0[167]31000
  532. 30060 r$[178][199](13):[152]5,bz;r$;
  533. 30065 [152]5,n;r$;
  534. 30070 [152]5,no;r$;
  535. 30075 [139]no[178]0[167]30102
  536. 30080 [129]i[178]1[164]no
  537. 30090 [152]5,cq$(i)r$;
  538. 30092 [152]5,d$(i)r$;
  539. 30094 [152]5,a$(i)r$;
  540. 30100 [130]
  541. 30102 [152]5,so;r$;
  542. 30104 [139]so[178]0[167]30120
  543. 30106 [129]i[178]1[164]so
  544. 30110 [152]5,so$(i);r$;
  545. 30112 [152]5,sa$(i);r$;
  546. 30114 [130]
  547. 30120 [160]5:[160]15
  548. 30125 [139]xt[178]1[167]40100
  549. 30130 [128]
  550. 31000 [153]"clrerror:open"e1$" "e2$" "e3$" "e4$
  551. 31010 [153]"syspress any key to re-save"
  552. 31020 [151]198,0:[146]198,1:[151]198,0
  553. 31030 [137]30000
  554. 40000 [153]"loadsysthere is not enough room to store any","more transactions."
  555. 40010 [153]"creating space for 10 more."
  556. 40020 n[178]n[170]10
  557. 40030 [153]"listyou must now save cheque data."
  558. 40040 [153]"press any key to do so."
  559. 40050 [151]198,0:[146]198,1:[151]198,0
  560. 40070 xt[178]1:[137]30000
  561. 40080 [153]"listnow press a key to re-load data."
  562. 40090 [151]198,0:[146]198,1:[151]198,0
  563. 40100 [138]
  564. 60000 [151]53280,0:[151]53281,0:[153]"loadreturn":[151]198,0
  565. 60001 [153],"cmdsysnewrndrndrndnewrndnewrnd***new*new*new*new**"
  566. 60002 [153],"cmdgetlogwaitgetlogwaitgetgetgetgetgetwaitrndgetsingetgetgetgetgetsin"
  567. 60003 [153],"cmdlogwaitrndgetgetlogwaitrndlogloggetcosgetwaitnewgetcosgetcosgetcosgetget"
  568. 60004 [153],"newrndnewrndnewrndnewrndrnd***new*new*new"
  569. 60005 [153],"getgetlogwaitgetgetlogwaitget*cosgetgetwaitnewgetwaitrndgetcos"
  570. 60006 [153],"logwaitget*waitrndlogwaitgetgetgetgetgetgetwait*cosgetwaitnewgetwaitsin"
  571. 60007 [153],"cont*newnewnewnewnewnewnewnewnewnewnewrnd"
  572. 60008 [153],"getwritten  bywaitget"
  573. 60009 [153],"lognewnewnewnewnewnewnewnewnewnewnewwaitcossys"
  574. 60010 [153],"cmdcmdcmdnewrndnewrndnewrndnewrndnewrndrndrndnewrndrndnewrndrndrndrndrndrnd"
  575. 60011 [153],"cmdcmdcmdlogwaitgetloggetloglogwaitgetgetrndgetlogwaitgetgetlogwaitgetgetgetget"
  576. 60012 [153],"cmdcmdcmdgetlogwaitrndgetlogwaitrnd*waitrndlogwaitsingetlogwaitrndgetlogwaitgetgetgetgetlogwaitrndlogwaitrnd"
  577. 60013 [153]"onpress any key to start, or i for info."
  578. 60014 [161]a$:[139]a$[178]""[167]a[178][171](a[178][171]a):[151]646,a[170]3:[137]60013
  579. 60015 [139]a$[179][177]"i"[167][142]
  580. 60016 [153]"loadforlenheque peekook (NULL)rganisersys was written by"
  581. 60017 [153]"(NULL)eter (NULL)eighillsys during atnugust 1990."
  582. 60018 [153]"(NULL)hanks to (NULL)umsys for the contoriginal ideasys."
  583. 60019 [153]"(NULL)hanks to str$ad sysfor helping to write the"
  584. 60020 [153]"continstructionssys for this program."
  585. 60021 [153]"print(NULL)ress any key to start."
  586. 60022 [161]a$:[139]a$[178]""[167]60022
  587. 60023 [142]
  588.